home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / start.dxr / 00115_Load Game.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  2.7 KB  |  92 lines
  1. on LoadGame
  2.   global SNAME, UNAME, alert, puppetSprite, value, init, JOBS, ACTION, J, TWNS, DEST_LQDS, KAT_LQDS, RANS, WANS, DTQR, DTQW, KARM, LIVC, SEX, CASH, EXCF, PNM, YY, MM, DD, DAYS, DEPDD, AFDD, TRAVEL, GameFileName, LPDAY, ARRIVE_CASH, PHONE_M, AUKT_JOBS
  3.   if the machineType = 256 then
  4.     openXLib(the pathName & "FILEIO.DLL")
  5.     set FILE to FileIO(mnew, "?read", "bpd")
  6.   else
  7.     if the machineType <> 256 then
  8.       set FILE to FileIO(mnew, "?read", "BPdr")
  9.     end if
  10.   end if
  11.   if not objectp(FILE) then
  12.     ErrorH(FILE)
  13.     exit
  14.   end if
  15.   set S to FILE(mReadLine)
  16.   if not S contains "BackPacker Game - version 1.0" then
  17.     ErrorH(999)
  18.     exit
  19.   end if
  20.   set SNAME to FILE(mReadLine)
  21.   delete char length(SNAME) of SNAME
  22.   set UNAME to FILE(mReadLine)
  23.   delete char length(UNAME) of UNAME
  24.   set SEX to value(FILE(mReadLine))
  25.   set CASH to value(FILE(mReadLine))
  26.   set EXCF to value(FILE(mReadLine))
  27.   set ACTION to value(FILE(mReadLine))
  28.   set LIVC to value(FILE(mReadLine))
  29.   set RRFCC to value(FILE(mReadLine))
  30.   set YY to value(FILE(mReadLine))
  31.   set MM to value(FILE(mReadLine))
  32.   set DD to value(FILE(mReadLine))
  33.   set DTQR to value(FILE(mReadLine))
  34.   set DTQW to value(FILE(mReadLine))
  35.   set LQNO to value(FILE(mReadLine))
  36.   set RANS to value(FILE(mReadLine))
  37.   set WANS to value(FILE(mReadLine))
  38.   set KARM to value(FILE(mReadLine))
  39.   set DAYS to value(FILE(mReadLine))
  40.   set DEPDD to value(FILE(mReadLine))
  41.   set AFDD to value(FILE(mReadLine))
  42.   set TRAVEL to value(FILE(mReadLine))
  43.   set ARRIVE_CASH to value(FILE(mReadLine))
  44.   set PHONE_M to value(FILE(mReadLine))
  45.   set AUKT_JOBS to value(FILE(mReadLine))
  46.   set GameFileName to FILE(mFileName)
  47.   FILE(mdispose)
  48.   if the machineType = 256 then
  49.     closeXLib(the pathName & "FILEIO.DLL")
  50.   end if
  51.   if not CodeMachine(J, "Decode", RRFCC) then
  52.     ErrorH(666)
  53.     set TRAVEL to 0
  54.     exit
  55.   end if
  56.   set LPDAY to DAYS
  57.   MakeLists()
  58.   set EXCF to getAt(EXCF_S, getLast(TWNS))
  59.   if (getAt(TWNS, 1) = getLast(TWNS)) and (abs(TRAVEL) >= 24) then
  60.     ErrorH(555)
  61.     set TRAVEL to 0
  62.     exit
  63.   end if
  64.   go("GameLoaded")
  65. end
  66.  
  67. on ErrorH ErrMess
  68.   if ErrMess = -43 then
  69.     nothing()
  70.   else
  71.     if ErrMess = -49 then
  72.       alert("Kan ikke erstatte gamle filer!")
  73.     else
  74.       if ErrMess < 0 then
  75.         alert("Problem med ├Ñ lese filen!")
  76.       else
  77.         if ErrMess = 555 then
  78.           alert("Denne BackPacker-turisten har allerede reist jorden rundt en gang!")
  79.         else
  80.           if ErrMess = 666 then
  81.             alert("Dette BackPacker-dokumentet er korrupt og kan ikke brukes!")
  82.           else
  83.             if ErrMess = 999 then
  84.               alert("Dette er ikke et kompatibelt BackPacker-dokument!")
  85.             end if
  86.           end if
  87.         end if
  88.       end if
  89.     end if
  90.   end if
  91. end
  92.